home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / Dialog Director 0.6 / Examples / Progress 1.as < prev    next >
Encoding:
Text File  |  1997-04-14  |  352 b   |  11 lines  |  [TEXT/ToyS]
  1. property theMax : 1234
  2. dd install with greyscale
  3. set p to dd make dialog {size:[300, 50], contents:[¬
  4.     {class:static text, contents:"Thinking…", bounds:[8, 4, 160, 20]}, ¬
  5.     {class:gauge, bounds:[10, 25, 290, 25 + 12], value:0, max value:theMax} ¬
  6.         ]}
  7. repeat with n from 1 to theMax
  8.     dd set value of item 2 of p to n
  9. end repeat
  10. dd delete p
  11. dd uninstall